home *** CD-ROM | disk | FTP | other *** search
/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Pascal / Source□ / DeHQX-200-Source / AppGlobals.p next >
Encoding:
Text File  |  1991-08-23  |  1.1 KB  |  57 lines  |  [TEXT/PJMM]
  1. unit AppGlobals;
  2. { DeHQX v2.0.0 © Peter Lewis, Aug 1991 }
  3.  
  4. interface
  5.  
  6.     uses
  7.         MyTypes;
  8.  
  9.     const
  10.         myAppType = 'PnLh';
  11.         pref_rsrc = 'PREF';
  12.         pref_id = 128;
  13.         pref_read_alert_id = 130;
  14.         pref_write_alert_id = 131;
  15.         pref_save_changes_alert_id = 132;
  16.         quit_now_alert_id = 133;
  17.         disk_error_alert_id = 201;
  18.         hqx_error_alert_id = 202;
  19.         pref_dialog_id = 400;
  20.         get_folder_id = 500;                { dialog pair - system 6=500, system 7=501 }
  21.         put_folder_id = 502;                { dialog pair - system 6=502, system 7=503 }
  22.         display_dialog_id = 700;
  23.         window_id = 128;
  24.         hqx_strh_id = 128;
  25.         display_strh_id = 129;
  26.         global_strh_id = 130;
  27.         HqxFormatErr = myErr3;
  28.  
  29.     const
  30.         pref_resource = 1;
  31.         pref_name = 2;
  32.         pref_save = 3;
  33.         sfput_string = 4;
  34.         folder_name = 5;
  35.         no_drop_folder = 6;
  36.         help_menu_text = 7;
  37.  
  38.     const
  39.         M_DeHQX = 1;
  40.         M_Close = 2;
  41.         M_Preferences = 4;
  42.         M_Help = 6;
  43.         M_Quit = 7;
  44.  
  45.     function GetGlobalString (i: integer): str255;
  46.  
  47. implementation
  48.  
  49.     function GetGlobalString (i: integer): str255;
  50.         var
  51.             s: str255;
  52.     begin
  53.         GetIndString(s, global_strh_id, i);
  54.         GetGlobalString := s;
  55.     end;
  56.  
  57. end.